home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_015_19xx_-_de_Side_A.d64 / sm coupon v1.0 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  191 lines
  1. 10 rem  sperrmuell-coupons drucken
  2. 20 :
  3. 30 rem  (w) 4/1993 thomas kneissler
  4. 40 :
  5. 50 fori=50002to50111:reada:pokei,a:next
  6. 60 data169,1,162,187,160,195,32,189,255,169
  7. 70 data8,133,186,169,96,133,185,32,213,243
  8. 80 data165,186,32,180,255,165,185,32,150,255
  9. 90 data169,0,133,144,32,215,170,160,5,132
  10. 100 data2,32,165,255,133,251,164,2,136,208
  11. 110 data244,32,165,255,164,144,208,41,166,251
  12. 120 data32,205,189,169,32,32,210,255,32,165
  13. 130 data255,166,144,208,24,170,240,6,32,210
  14. 140 data255,76,150,195,169,13,32,210,255,32
  15. 150 data225,255,240,5,160,3,76,121,195,32
  16. 160 data171,255,76,66,246,36,0,0,0,0
  17. 170 :
  18. 180 clr:dim a$(12)
  19. 190 a$(7)="01234/56789 (9 - 14 h)":rem tel.nr.
  20. 200 a$(9)="[211]iggi [211]orglos, [198]loppystr. 64, 6502 [200]ackershausen":rem adresse
  21. 210 a$(10)="9876543210":rem ausweis-nummer
  22. 220 poke 53280,15:poke 53281,15:poke 646,0
  23. 230 poke 788,52
  24. 240 print chr$(147);chr$(14);chr$(8);
  25. 250 print"        [211]perrmuell-[195]oupons drucken      [144][146]"
  26. 260 print""
  27. 270 print"       [200] [193] [213] [208] [212] [205] [197] [206] [213] [197]"
  28. 280 print
  29. 290 print"       [ 1 ]  [196]aten neu eingeben"
  30. 300 print"       [ 2 ]  [196]aten laden"
  31. 310 print"       [ 3 ]  [196]aten speichern"
  32. 320 print"       [ 4 ]  [196]aten anzeigen"
  33. 330 print"       [ 5 ]  [196]aten korrigieren"
  34. 340 print"       [ 6 ]  [196]aten drucken"
  35. 350 print"       [ 7 ]  [196]irectory"
  36. 360 print"   [194]itte mit [212]asten 1 - 7 auswaehlen"
  37. 370 get n$:if n$="" then 370
  38. 380 if n$="1" then 470
  39. 390 if n$="2" then 1520
  40. 400 if n$="3" then 1410
  41. 410 if n$="4" then 1610
  42. 420 if n$="5" then 1210
  43. 430 if n$="6" then 710
  44. 440 if n$="7" then 1730
  45. 450 goto 240
  46. 460 :
  47. 470 for n=1 to 6:a$(n)="":next
  48. 480 a$(8)=""
  49. 490 print chr$(147);
  50. 500 print"         [196]aten neu eingeben             [146]"
  51. 510 print"[210]ubrik-[206]r.:";
  52. 520 n=1:gosub 1280
  53. 530 print"[144][194]iete / [211]uche (b/s):";
  54. 540 n=8:gosub 1280
  55. 550 if a$(8)="b" then a$(2)="[194]iete"
  56. 560 if a$(8)="b" then print:print"[145][145][194]iete[146]                 ":goto 600
  57. 570 if a$(8)="s" then a$(2)="[211]uche"
  58. 580 if a$(8)="s" then print:print"[145][145]        [211]uche[146]         ":goto 600
  59. 590 a$(8)="":goto 530
  60. 600 print"[144][193]nzeigentext (bis zu 4 [218]eilen):":print
  61. 610 print"1.:";
  62. 620 n=3:gosub 1280
  63. 630 print:print"2.:";
  64. 640 n=4:gosub 1280
  65. 650 print:print"3.:";
  66. 660 n=5:gosub 1280
  67. 670 print:print"4.:";
  68. 680 n=6:gosub 1280
  69. 690 goto 240
  70. 700 :
  71. 710 print chr$(147);
  72. 720 print"         [196]aten drucken                  [146]"
  73. 730 print
  74. 740 print"   [ 1 ]  [195]oupon mit [212]elefon"
  75. 750 print"   [ 2 ]  [195]oupon mit [193]dresse"
  76. 760 get n$:if n$="" then 790
  77. 770 if n$="1" then 800
  78. 780 if n$="2" then 800
  79. 790 goto 760
  80. 800 open 1,4,2
  81. 810 print#1,chr$(27);"@";:rem reset
  82. 820 print#1,chr$(27);"l";chr$(5);:rem linker rand
  83. 830 print#1,chr$(27);"[208]";:rem pica ein
  84. 840 print#1,chr$(27);"x1";:rem nlq ein
  85. 850 print#1,chr$(27);"k";chr$(1);:rem nlq sanserif
  86. 860 print#1,chr$(15);:rem schmaldruck ein
  87. 870 print#1,chr$(27);"[196]";chr$(26);chr$(0);:rem tabulatoren setzen
  88. 880 print#1,"+";spc(93);"+"
  89. 890 print#1,chr$(18);:rem schmaldruck aus
  90. 900 print#1,"   [210]ubrik-[206]r.:          [211] p e r r [205] [189] l l"
  91. 910 print#1,"                           [195] o u p o n"
  92. 920 print#1,
  93. 930 print#1,"    ";chr$(27);"[215]";chr$(1);a$(1);chr$(27);"[215]";chr$(0)
  94. 940 print#1,chr$(15);:rem schmaldruck ein
  95. 950 for n=1 to 4:print#1,:next
  96. 960 print#1,chr$(9);chr$(27);"-";chr$(1);"[193]nzeigentext:";chr$(27);"-";chr$(0)
  97. 970 print#1,spc(5);a$(2);chr$(9);a$(3)
  98. 980 print#1,chr$(9);a$(4)
  99. 990 print#1,spc(5);"[196]ie [193]nzeige";chr$(9);a$(5)
  100. 1000 print#1,spc(5);"soll kostenlos";chr$(9);a$(6)
  101. 1010 if n$="2" then print#1,spc(5);"erscheinen";chr$(9);a$(9):goto 1030
  102. 1020 print#1,spc(5);"erscheinen";chr$(9);a$(7)
  103. 1030 for n=1 to 3:print#1,:next
  104. 1040 print#1,;chr$(9);"[206]ame: [211]iggi [211]orglos             [211]tra[190]e: [198]loppystr. 64"
  105. 1050 print#1,;chr$(9);"[208][204][218], [207]rt: 6502 [200]ackershausen    [213]nterschrift:"
  106. 1060 if n$="2" then print#1,chr$(9);"[193]usweis-[206]r.: ";a$(10):goto 1080
  107. 1070 print#1,
  108. 1080 print#1,
  109. 1090 print#1,
  110. 1100 print#1,"+";spc(93);"+"
  111. 1110 print#1,
  112. 1120 print#1,chr$(27);"x0";:rem draft ein
  113. 1130 print#1,spc(5);a$(1);"  ";a$(2)
  114. 1140 for n=3 to 6
  115. 1150 print#1,spc(5);a$(n)
  116. 1160 next n
  117. 1170 print#1,
  118. 1180 close 1
  119. 1190 goto 240
  120. 1200 :
  121. 1210 print chr$(147);
  122. 1220 print"       [196]aten korrigieren                [146]"
  123. 1230 print
  124. 1240 for n=1 to 7:print tab(2);chr$(34);a$(n):next
  125. 1250 print"":for n=1 to 7:input a$(n):next
  126. 1260 goto 240
  127. 1270 :
  128. 1280 poke204,0:wait198,255:getz$
  129. 1290 poke207,0:poke204,1
  130. 1300 t=asc(z$):ift=13thenprint" ":goto1390
  131. 1310 ift=20andlen(a$(n))<1then1280
  132. 1320 ift=20thena$(n)=left$(a$(n),len(a$(n))-1):printchr$(20);:goto1280
  133. 1330 iflen(a$(n))>62then1280
  134. 1340 ift=17ort=29ort=145ort=157ort=19ort=147ort=148then1280
  135. 1350 ift=133ort=134ort=135ort=136ort=137ort=138ort=139ort=140then1280
  136. 1360 ift=3ort=131then1280
  137. 1370 printz$;:a$(n)=a$(n)+z$
  138. 1380 goto1280
  139. 1390 return
  140. 1400 :
  141. 1410 print"[147][196]aten auf [196]iskette speichern[146]"
  142. 1420 print"[204]ege eine [196]atendiskette ein"
  143. 1430 print"und gib den [196]ateinamen ein"
  144. 1440 a$(12)="":n=12:gosub 1280
  145. 1450 if a$(12)="" then 240
  146. 1460 open 1,8,1,"@:"+a$(12)+",s,w"
  147. 1470 for n=1 to 6:if a$(n)="" then a$(n)=" "
  148. 1480 print#1,chr$(34);a$(n);chr$(34):next
  149. 1490 close 1
  150. 1500 goto 240
  151. 1510 :
  152. 1520 print"[147][196]aten von [196]iskette laden[146]"
  153. 1530 print"[204]ege eine [196]atendiskette ein"
  154. 1540 print"und gib den [196]ateinamen ein"
  155. 1550 a$(11)="":n=11:gosub 1280
  156. 1560 if a$(11)="" then 240
  157. 1570 open 1,8,0,a$(11)+",s,r"
  158. 1580 for n=1 to 6:input#1,a$(n):next
  159. 1590 close 1
  160. 1600 :
  161. 1610 print chr$(147);
  162. 1620 print"         [196]aten anzeigen                 [146]"
  163. 1630 print"[198]olgender [195]oupon-[212]ext befindet"
  164. 1640 print"sich im [211]peicher:"
  165. 1650 print"";tab(3);a$(1)
  166. 1660 print tab(3);a$(2)
  167. 1670 print:print
  168. 1680 for n=3 to 7:print tab(3);a$(n):next
  169. 1690 print"        [194]itte [212]aste druecken[144]"
  170. 1700 get n$:if n$="" then 1700
  171. 1710 goto 240
  172. 1720 :
  173. 1730 print chr$(147);
  174. 1740 sys 50002
  175. 1750 get n$:if n$="" then 1750
  176. 1760 goto 240
  177. 1770 :
  178. 1780 rem variablen-liste
  179. 1790 rem a$ (1)= rubrik-nr.
  180. 1800 rem a$ (2)= biete / suche
  181. 1810 rem a$ (3)= 1. textzeile
  182. 1820 rem a$ (4)= 2. textzeile
  183. 1830 rem a$ (5)= 3. textzeile
  184. 1840 rem a$ (6)= 4. textzeile
  185. 1850 rem a$ (7)= tel.nr.
  186. 1860 rem a$ (8)= b/s (nur fuer monitor)
  187. 1870 rem a$ (9)= adresse
  188. 1880 rem a$(10)= ausweis-nummer
  189. 1890 rem a$(11)= filename laden
  190. 1900 rem a$(12)= filename speichern
  191.